home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a01.bas < prev    next >
BASIC Source File  |  1993-11-30  |  2KB  |  69 lines
  1. 1000 'A01.BAS***************************************************T.K.MOSAKU
  2. 1010 COLOR 7,0,0:CD PLAY 2
  3. 1020 '
  4. 1030 SCREEN@ 1:CLS
  5. 1040 LINE (49,49)-(271,191),PSET,5,B
  6. 1050 WAIT 100
  7. 1060 '
  8. 1070 G1=.15!*255:R1=1!*255  :B1=.15!*255':PRINT RND(1)
  9. 1080 G2=.75!*255:R2=.95!*255:B1=.75!*255':PRINT RND(2) 
  10. 1090 FOR I=50 TO 190
  11. 1100   G=G1+((G2-G1)*I)/210
  12. 1110   R=R1+((R2-R1)*I)/220
  13. 1120   B=B1+((B2-B1)*I)/230
  14. 1130   LINE (50,I)-(270,I),PSET,[G,R,B]:WAIT 2
  15. 1140 NEXT
  16. 1150 WAIT 50
  17. 1160 '
  18. 1170 C=0:GOSUB *SHIRO
  19. 1180 WAIT 200
  20. 1190 '
  21. 1200 GOSUB *MOZI'
  22. 1210 GOTO 1670'
  23. 1220 '
  24. 1230 *SHIRO
  25. 1240   LINE (55, 188)-(265,190),PSET,C,BF
  26. 1250   LINE (70, 185)-(150,190),PSET,C,BF
  27. 1260   LINE (80, 175)-(120,190),PSET,C,BF
  28. 1270   LINE (115,180)-(135,190),PSET,C,BF
  29. 1280   LINE (106,123)-(110,123),PSET,C'ZYUUZIKA YOKO
  30. 1290   LINE (108,130)-(108,120),PSET,C'ZYUUZIKA TATE
  31. 1300 '
  32. 1310   LINE (103,155)-(113,190),PSET,C,BF'****************2
  33. 1320   LINE (103,155)-(108,130),PSET,C'*******************2
  34. 1330   LINE (108,130)-(113,155),PSET,C:PAINT (107,150),C'*2
  35. 1340 '
  36. 1350   LINE (115,165)-(125,190),PSET,C,BF'****************1
  37. 1360   LINE (115,165)-(120,140),PSET,C'*******************1
  38. 1370   LINE (120,140)-(125,165),PSET,C:PAINT (117,163),C'*1
  39. 1380 '
  40. 1390   LINE (91, 175)-(101,180),PSET,C,BF'****************3
  41. 1400   LINE (91, 175)-(96, 150),PSET,C'*******************3
  42. 1410   LINE (96, 150)-(101,175),PSET,C:PAINT (96,173),C'**3
  43. 1420 RETURN
  44. 1430 '
  45. 1440 *MOZI'
  46. 1450 A$="ＢＡＳＩＣによる":B$="グラフィックスのいろいろ"
  47. 1460 NA=LEN(A$):NB=LEN(B$)
  48. 1470 FOR I=0 TO NA/2-1
  49. 1480   SYMBOL@(70+13*I,75),MID$(A$,I*2+1,2),.9!,1!,1,,,4
  50. 1490  BEEP 1
  51. 1500  FOR J=1 TO 300 :NEXT J
  52. 1510  BEEP 0
  53. 1520   FOR D=1 TO 750:NEXT D
  54. 1530 NEXT I
  55. 1540 '
  56. 1550 WAIT 50
  57. 1560 FOR I=0 TO NB/2-1
  58. 1570   SYMBOL@(100+13*I,100),MID$(B$,I*2+1,2),.9!,1!,1,,,4
  59. 1580  BEEP 1
  60. 1590  FOR J=1 TO 300 :NEXT J
  61. 1600  BEEP 0
  62. 1610   FOR D=1 TO 750:NEXT D
  63. 1620 NEXT I
  64. 1630 WAIT 50
  65. 1640 LOCATE 52,19:COLOR 1:PRINT "BY T.K.MOSAKU"
  66. 1650 WAIT 200
  67. 1660 RETURN'
  68. 1670 '
  69.